File:  of Tape: Sources/Focal/s6

(Source file text) 

---

ON'T OUTPUT FF;ELSE "JMS LPTPCH" FOR END OF FILE FF
	JMP I LPRTRX
LPTINI,	0		/PAGE 2 INIT
	CLA CLL
	TAD LPTINI
	TAD LPRTRX
LPLPTR,	DCA LPRTRX
	JMP I LPTINI
LPRTRX,	LPRTRN-LPNXIN-1
LPT177,	177
LPM140,	-140
LPT106,	106
LPT13,	13
LPT6,	6
LPT11,	11
LPT175,	175
LPT214,	214
LPT7,	7
LPT215,	215
LPTM15,	-15
LPTLF,	212
LPM40,	-40

	PAGE

$$$$$

---